Способ не универсальный, но все же.
Сделал бы так:
Не в главном Цикле:
ImageUP=LoadAnimImage.....
Timer=Millisecs()
Frame=0
В главном цикле:
If KeyDown(KEY_UP)
If frame<=2
If Timer + Нужное Кол-во<Millisecs()
DrawImage ImageUP,x,y,frame
EndIf
Else
frame=0
Endif
Timer=Millisecs()
Frame:+1
Endif