Run Analysis Iteratively in a loop using OpenSTAAD VBA

Is there a way to run analysis in a iterative loop using OpenSTAAD. For example, I would like to run analysis 15 times while changing a certain parameter each time. I tried using 'objOpenSTAAD.Analyze' in a loop but after each iteration as follows 

    For i = 1 To 3
    'Run Analysis
        objOpenSTAAD.Analyze
        'Change to Postprocessing
        objOpenSTAAD.View.SetInterfaceMode 1
        lLoadCase = 1
        lNodeNo = 8
        'Get Nodal Displacement
        objOpenSTAAD.Output.GetNodeDisplacements lNodeNo, lLoadCase, Disp
        Sheet4.Cells(3 + i, 2).Value = Disp(0)
        objOpenSTAAD.View.SetInterfaceMode 0
    Next i

BUT

I have to manually click on 'Go to postprocessing' radio button and then chick on the load case for which the results need to be viewed etc. I want to avoid manual intervention. Any help or example problem please?