ну получаешь last типа, и получаешь предыдущую переменную в цикле с помощью before и если она стала first то выходишь из цикла
что-то типа такого (но это говно код, да и блиц не позволяет проверить переменную по указателю, хотя по нему же ходит :/ )
Type test
Field a%
End Type
For i% = 0 To 5
foo.test = New test
foo\a = i
Next
foo.test = Last test
run% = True
While run
Print foo\a
If foo = First test Then
run = False
Else
foo = Before foo
EndIf
Wend
WaitKey