How to restrain automatic scaling

In various situations Basser Lout seems eager to vertically shrink
things even though I never want it to without my asking. How do I
encourage it to just break to the next page where there's enough space
for the thing without shrinking it? The enclosed is an example of
something that exhibits the behaviour I'm trying to curtail: it
vertically shrinks one of the sections under the floating figure. I'm
guessing there's a relevant option somewhere, I'm just failing to think
of the correct search terms.

Mark

@SysInclude { doc }
@Doc @Text @Begin
@BeginSections

@Section
  @Title { Section Title }
@Begin
@LP
Section text.

@Figure
  @Caption { I'm a floating figure. }
@Box { 8i @High }

@End @Section

@Section
  @Title { Section Title }
@Begin
@LP
Let's skip a bunch of space. 7i @High

@End @Section

@Section
  @Title { Section Title }
@Begin
@LP
Section text.

@End @Section

@Section
  @Title { Section Title }
@Begin
@LP
Section text.

@End @Section

@Section
  @Title { Section Title }
@Begin
@LP
Section text.

@End @Section

@Section
  @Title { Section Title }
@Begin
@LP
Section text.

@End @Section

@EndSections
@End @Text