Dim n As Double

Dim y As Integer

y = 0

n = 13

Do While n <= 15

'0.195= 13*1.5% 
n = n + 0.195       
y = y + 1

Loop

MsgBox y