Scroll Word's font size selector Word's A▲ and ᴀ▼ buttons change the font size according to these rules:

The starting font size is 11.
If ᴀ▼ is pressed when the font size is 1, the size stays 1.
The font size changes with 1 point in the range 1 – 12.
The font size changes with 2 points in the range 12 – 28.
The choices are 28, 36, 48, 72, and 80 in the range 28 – 80.
The font size changes with 10 points in the range 80 – 1630.
The font size changes with 8 points in the range 1630 – 1638.
If A▲ is pressed when the font size is 1638, the size stays 1638.

Task
In as few bytes as possible, determine the resulting font size when given a set of button presses in any reasonable format.
Examples
[3,-1,2], meaning A▲A▲A▲ᴀ▼A▲A▲: The result is 18.
Some possible formats are '^^^v^^', [1 1 1 -1 1 1], [True,True,True,False,True,True], [&quot;+&quot;,&quot;+&quot;,&quot;+&quot;,&quot;-&quot;,&quot;+&quot;,&quot;+&quot;], &quot;‘‘‘’‘‘&quot;, &quot;⛄️⛄️⛄️⛄️⛄️&quot;, 111011, &quot;CaB&quot;, etc...
[2]: 14
[-1]:10
[13]:80
[-11,1]: 2
[11,-1]: 36
[170,-1]: 1630
[2000,-2,100]: 1638
Word VBA, 199 147 126 116 102 100 87 85  Bytes

Why emulate when you can do?!
Declared function in the ThisDocument module that takes input n in the form of Array(true,true,false,true) and outputs to the Word font size selector :P
Golfed:
Sub a(n):Set f=Content.Font:For Each i In n
If i Then f.Grow Else f.Shrink
Next:End Sub

Ungolfed:
Sub a(n)
    Set f=ThisDocument.Content.Font
    For Each i In n
        If i Then 
            f.Grow 
        Else 
            f.Shrink
        End if 
    Next
    ''  Implicitly output font size to MS Word Font Size Selector 
End Sub

.GIF of usage

Thanks
-21 thanks to @Adám (removed Selection.WholeStory: call)
-10 thanks to @Adám (assume clean environment; remove f.size=11: call)
-14 thanks to @Adám (cheeky output word font size selector)
-2 thanks to @Adám (bool ParamArray)
-13 for changing ParamArray n() to n and expecting input as Boolean Array
-2 for moving from a code module to the ThisDocument module
Old Version 114 Bytes
Takes input n as a ParamArray, in the form of true,true,false,true and outputs word vbe immediates window
Sub a(ParamArray n()):Set f=Selection.Font:For Each i In n
If i Then f.Grow Else f.Shrink
Next:Debug.?f.Size:End Sub

Older version, 199 Bytes
Takes input in the form of 170,-4,6,-1 (accepts numbers larger than 1 in magnitude)
Sub a(ParamArray n()):Selection.WholeStory:Set f=Selection.Font:f.Size=12:For Each i In n
If i&gt;1 Then
For j=i To 0 Step -1:f.Grow:Next
Else
For j=i To 0:f.Shrink:Next:End If:Next:Debug.?f.Size:End Sub