Augusta, Braunschweig-Lüneburg, Herzogin