Is there a way to "smooth" the movement while these lines execute?

For i = 1 To 360 Step 1
wb.ActiveChart.Rotation = i
x = Timer
While Timer - x < 0.01
Wend
Next