How to make variables reference different cells

I'm trying to make some variables reference different cells as the code loops through. I'm just not sure how to format the i variable into existing variables. For example, I'm trying to make the WBS variable reference A2 the first loop through. Then A3 the second loop through and so on.

'SAP inputs
i = 0
WBS = Range("A2+i")
Month = Range("B2")
Year = Range("C2")
Name = Range("D2+i")
'
Do While i < 2
    session.findById("wnd[0]/usr/ctxtP_POSID").Text = WBS 'WBS var
    session.findById("wnd[0]/usr/ctxtP_PERIO").Text = "1"
    session.findById("wnd[0]/usr/txtP_GJAHR").Text = "1900"
    session.findById("wnd[0]/usr/ctxtP_TPERIO").Text = Month 'Month var
    session.findById("wnd[0]/usr/txtP_TGJAHR").Text = Year 'Year var
    session.findById("wnd[0]/usr/txtP_TGJAHR").SetFocus
    session.findById("wnd[0]/usr/txtP_TGJAHR").caretPosition = 4
    session.findById("wnd[0]").sendVKey 8
    session.findById("wnd[0]/usr/lbl[8,7]").SetFocus
    session.findById("wnd[0]/usr/lbl[8,7]").caretPosition = 9
    session.findById("wnd[0]/tbar[1]/btn[47]").press
    session.findById("wnd[0]/mbar/menu[4]/menu[5]/menu[2]/menu[1]").Select
    session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").Select
    session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").SetFocus
    session.findById("wnd[1]/tbar[0]/btn[0]").press
    session.findById("wnd[1]/usr/ctxtDY_PATH").SetFocus
    session.findById("wnd[1]/usr/ctxtDY_PATH").caretPosition = 0
    session.findById("wnd[1]").sendVKey 4

'Save file
    session.findById("wnd[2]/usr/ctxtDY_FILENAME").Text = Name & ".xls" 'Name var
    session.findById("wnd[2]/usr/ctxtDY_FILENAME").caretPosition = 11
    session.findById("wnd[2]/tbar[0]/btn[0]").press
    session.findById("wnd[1]/tbar[0]/btn[0]").press

'Back to transaction
    session.findById("wnd[0]").sendVKey 3
'
    i = i + 1
Loop