change variable on every iteration in loop

Is there a way to cycle through the variables? Example below. Also when all the variables are cycled through, how to exit the loop?

Sub test()
Dim var As String, var1 As String, var2 As String, var3 As String, var4 As String

n = 1

var1 = "apple"
var2 = "orange"
var3 = "pear"

Do Until ActiveCell.Value = var & n 'how would you do this part so the variable changes?
ActiveCell.Offset(0, 1).Select
Loop
n = n + 1
end sub