Solved (with all credit to Tom Boyle)

Sub BackTasks()
Dim t As Task

Dim i As Long

For i = ActiveProject.Tasks.Count To 1 Step -1

Set t = ActiveProject.Tasks(i)

If Not t Is Nothing Then

'Your Code Here

End If

Next i

End Sub