'Speed' of loop

I normally do the following:

' Reel Test
SuperStrict
local reelblur:Timage=LoadAnimImage("reelblur.png",97,195,0,9)

Graphics 800,600

local a% = 0
local frameDelay%=0

Repeat
	Cls
	If KeyDown(KEY_SPACE) Then
		frameDelay:+1
		if frameDelay > 10
				frameDelay = 0
				If a<8 Then
					a:+1
				Else
					a=0
				End If
		endif
		DrawImage reelblur,0,0,a
	End If
	Flip
Until KeyHit(KEY_ESCAPE)

BTW use SuperStrict... ;-)